object FProceed: TFProceed
  Left = 502
  Top = 181
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Proceed With Call?'
  ClientHeight = 215
  ClientWidth = 330
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = -10
    Top = 27
    Width = 185
    Height = 43
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Your Account Balance is:'
  end
  object Label2: TLabel
    Left = 6
    Top = 66
    Width = 168
    Height = 46
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'You may speak for:'
  end
  object Label3: TLabel
    Left = 38
    Top = 114
    Width = 157
    Height = 60
    Alignment = taCenter
    AutoSize = False
    Caption = 'Do You Want To Place This Call?'
  end
  object SBalance: TEdit
    Left = 184
    Top = 23
    Width = 122
    Height = 21
    TabStop = False
    Color = clWhite
    Ctl3D = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
    Text = 'SBalance'
  end
  object STime: TEdit
    Left = 182
    Top = 63
    Width = 125
    Height = 21
    TabStop = False
    Color = clWhite
    Ctl3D = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    Text = 'STime'
  end
  object BProceed: TButton
    Left = 206
    Top = 112
    Width = 75
    Height = 23
    Caption = 'Yes'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BProceedClick
    OnMouseDown = BProceedMouseDown
  end
  object BCancel: TButton
    Left = 205
    Top = 154
    Width = 75
    Height = 23
    Caption = 'No'
    Default = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BCancelClick
  end
  object SReply: TEdit
    Left = 102
    Top = 176
    Width = 40
    Height = 21
    TabStop = False
    Color = clWhite
    Ctl3D = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
    Text = 'SReply'
  end
  object ReplyTimer: TTimer
    Enabled = False
    OnTimer = ReplyTimerTimer
    Left = 10
    Top = 168
  end
end